(setq load-path (cons "~/.emacs.d" load-path))

(server-start)
(require 'cc-mode) ;- so that c-mode-map exists for key redef
(require 'dired) ;- so that dired-mode-map exists for key redef
(require 'bm)
(require 'ido)
(require 'smex)
(require 'fill-column-indicator)
(require 'inf-ruby)
(require 'mark-more-like-this)
(require 'mercurial)
(require 'lua-mode)
;(require 'auto-complete)

;(require 'xcscope)

;;------------------------------------------------------------------------------
;; Version 24 specific stuff

(when (>= emacs-major-version 24)
  (require 'package)
  (add-to-list 'package-archives 
               '("marmalade" .
                 "http://marmalade-repo.org/packages/"))
  (package-initialize))

;;------------------------------------------------------------------------------
;; Org-mode

(setq org-log-done 'time)   ; insert a timestamp when org item marked DONE
(setq org-directory "~/Documents/Personal/Notes")
(setq org-default-notes-file (concat org-directory "/notes.org"))
(setq org-agenda-files `(,org-default-notes-file))
(setq org-remember-default-headline nil)
(setq org-remember-templates
    `(("Note"       ?n "* NOTE %?\n"                      ,org-default-notes-file
                                                          "NOTES")
      ("Todo"       ?t "* TODO %?\n"                      ,org-default-notes-file
                                                          "TODOS")
      ("Journal"    ?j "* %U : %?\n"                      ,(concat org-directory "/journal.org")
                                                          "JOURNAL")))
;;(org-remember-insinuate)

;;------------------------------------------------------------------------------
;; Abbrev setup

(define-abbrev-table 'global-abbrev-table '(
)) 

;; stop asking whether to save newly added abbrev when quitting emacs
(setq save-abbrevs nil)

;; turn on abbrev mode globally
(setq-default abbrev-mode t)

;;------------------------------------------------------------------------------
;; Ruby and inf-ruby initialization

(autoload 'inf-ruby "inf-ruby" "Run an inferior Ruby process" t)
(autoload 'inf-ruby-setup-keybindings "inf-ruby" "" t)
(eval-after-load 'ruby-mode
                 '(add-hook 'ruby-mode-hook 'inf-ruby-setup-keybindings))

;;------------------------------------------------------------------------------
;; Create new buffer for each occur.

(add-to-list 'occur-hook #'(lambda () (occur-rename-buffer)))

;;------------------------------------------------------------------------------
;; Misc initialization

(smex-initialize)
(setq c-dired-terse-display nil)
(setq-default bm-highlight-style 'bm-highlight-only-fringe)
(setq scroll-step 1)
(setq indent-tabs-mode nil)
(setq compilation-scroll-output t)                                   
(column-number-mode 1)
(setq scroll-preserve-screen-position t)
(setq scroll-conservatively 1)
(setq mouse-wheel-scroll-amount '(1 ((shift) . 1) ((control) . nil)))
(setq mouse-wheel-progressive-speed t)
(put 'dired-find-alternate-file 'disabled nil)
(tool-bar-mode -1)
(put 'set-goal-column 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'scroll-left 'disabled nil)
(setq make-backup-files nil)
(setq calendar-latitude 37.49345)
(setq calendar-longitude -122.236601)
(setq calendar-daylight-time-zone-name "PST")
(setq-default ring-bell-function 'ignore)             ; God I hate that flashing
(setq-default fill-column 80)
(setq initial-scratch-message nil)
;; This (below) effectively disables the following annoying behavior of
;; ido-find-file:
;;      1. C-x C-f
;;      2. Go to some random directory.
;;      3. Type in the name of a file which exists in ANOTHER DIRECTORY
;;      4. ido-find-file jumps to the OTHER DIRECTORY and waits for you
;;         to confirm opening the OTHER FILE.
;;      5. Swearing ensues.
(setq ido-auto-merge-delay-time 99999)
(autoload 'zap-up-to-char "misc"
    "Kill up to, but not including ARGth occurrence of CHAR.
    \(fn arg char)"
    'interactive)
(setq-default max-comment-column 80)
(defalias 'list-buffers 'ibuffer)

;;------------------------------------------------------------------------------
;; MISC FUNCTIONS THAT I'VE SNAGGED

(defun last-dir (p)
  (let ((dirs (reverse (split-string p "/"))))
    (cond ((and (equal (car dirs) "")
                (equal (cadr dirs) ""))
           "/")   ; root dir
          ((and (equal (car dirs) "")
                (equal (cadr dirs) "~"))
           "~")   ; home dir
          (t (cadr dirs)))))
                    
;;------------------------------------------------------------------------------

; #&#%#!! Emacs
(defun tkf-backtab ()
  "Move the cursor backwards to the previous tab stop or the
   beginning of the line.  Whichever is closest to point."
  (interactive)
  ; assume that tab-stop-list is ordered
  (let ((last-tab-pos 0)
        (curr-tab-pos 0)
        (tab-list tab-stop-list))
    (while (and (not (null tab-list))
                (> (current-column) curr-tab-pos))
      (setq last-tab-pos curr-tab-pos)
      (setq curr-tab-pos (car tab-list))
      (setq tab-list (cdr tab-list)))
    (while (> (current-column) last-tab-pos)
      (backward-char))))

;;------------------------------------------------------------------------------

(defun tkf-beginning-of-line ()
  "Move cursor to first nonblank character on current line
   preceeding point. If no such character exists, then leave cursor at the
   beginning of the line.  If cursor is already at the beginning of the line,
   then move to the first nonblank character on the line."
  (interactive)
  (let ((pos (if (= (point) (line-beginning-position))
                 (line-end-position)
                 (point))))
    (move-beginning-of-line nil)
    (while (and (looking-at " ")
                (< (point) pos))
      (forward-char))
    (if (>= (point) pos)
        (move-beginning-of-line nil))))
           
;;------------------------------------------------------------------------------

(defun tkf-newline-and-indent ()
  "Similar to the ordinary Emacs 'newline-and-indent' but no indentation
   occurs if the previous line is all whitespace"
  (interactive "")
  (let ((do-newline-and-indent t))
    (save-excursion
      ;(forward-line -1)
      (beginning-of-line)
      (if (looking-at " *$")
          (setq do-newline-and-indent nil)))    
    (if do-newline-and-indent
        (newline-and-indent)
        (newline))))
              
;;------------------------------------------------------------------------------

(defun tkf-fullscreen (&optional f)
  (interactive)
  (set-frame-parameter f 'fullscreen
                       (if (frame-parameter f 'fullscreen) nil 'fullboth)))

;;------------------------------------------------------------------------------

(defun toggle-sticky-buffer-window ()
  "Toggle whether this window is dedicated to this buffer."
  (interactive)
  (set-window-dedicated-p
   (selected-window)
   (not (window-dedicated-p (selected-window))))
  (if (window-dedicated-p (selected-window))
      (message "Window is now dedicated.")
  (message "Window is no longer dedicated.")))

;;------------------------------------------------------------------------------

; tkf-search-(fwd|bwd)-other-window are due to Scott Jaderholm (jaderholm.com)

(defun tkf-search-fwd-other-window ()
  "Search forward in another window without leaving the active window."
  (interactive)
  (save-selected-window
    (other-window 1)
    (isearch-forward)))

;;------------------------------------------------------------------------------

(defun tkf-search-bwd-other-window ()
  "Search backward in another window without leaving the active window."
  (interactive)
  (save-selected-window
    (other-window 1)
    (isearch-backward)))

;;------------------------------------------------------------------------------

(defun tkf-switch-to-buffer-other-window ()
  "Switch to buffer in other window but stay in current window/buffer."
  (interactive)
  (save-selected-window
    (other-window 1)
    (ido-switch-buffer)))

;;------------------------------------------------------------------------------

(defun tkf-find-file-other-window ()
  "Open a file in other window but stay in current window/buffer."
  (interactive)
  (save-selected-window
    (other-window 1)
    (ido-find-file)))

;;------------------------------------------------------------------------------

(defun push-mark-no-activate ()
  "Pushes `point' to `mark-ring' and does not activate the region Equivalent to \\[set-mark-command] when \\[transient-mark-mode] is disabled"
  (interactive)
  (push-mark (point) t nil)
  (message "Pushed mark to ring"))

;;------------------------------------------------------------------------------

(defun jump-to-mark ()
  "Jumps to the local mark, respecting the `mark-ring' order. This is the same as using \\[set-mark-command] with the prefix argument."
  (interactive)
  (set-mark-command 1))

;;------------------------------------------------------------------------------

(defun tkf-time ()
  "-"
  (interactive)
  (insert (format-time-string "%a, %d-%b-%Y %k%M")))

;;------------------------------------------------------------------------------

(defun tkf-insert-divider-comment ()
  (interactive "*")
  (let ((dashes #'(lambda ()
                    (let ((mc 0))
                      (if (not (boundp 'max-comment-column))
                          (progn (message "max-comment-column not defined.  Using 80 as a default")
                                 (setq mc 80))
                        (setq mc max-comment-column))
                      (if (< (current-column) max-comment-column)
                          (let ((c (current-column)))
                            (dotimes (i (- max-comment-column c))
                              (insert "-"))))))))
    (cond ((or (eq major-mode 'lisp-interaction-mode)
               (eq major-mode 'lisp-mode)
               (eq major-mode 'scheme-mode)
               (eq major-mode 'emacs-lisp-mode))
           (insert ";;")
           (funcall dashes))
          ((or (eq major-mode 'c++-mode)
               (eq major-mode 'c-mode))
           (insert "//")
           (funcall dashes))
          (t
           (funcall dashes)))))

;;------------------------------------------------------------------------------

(if (eq system-type 'windows-nt)
    ;; setting the PC keyboard's various keys to
    ;; Super or Hyper, for emacs running on Windows.
    ;; From: http://xahlee.blogspot.com/2010/08/emacs-hyper-and-super-keys.html
    (setq w32-pass-lwindow-to-system    nil 
          w32-pass-rwindow-to-system    nil 
          w32-pass-apps-to-system       nil 
          w32-lwindow-modifier          'super   ;; Left Windows key 
          w32-rwindow-modifier          'super)) ;; Right Windows key

;; END OF MISC FUNCTIONS THAT I'VE SNAGGED
;;------------------------------------------------------------------------------

;;------------------------------------------------------------------------------
;; KEYDEFS

;;--- Placed at top of list so that I never, ever forget.
(global-set-key (kbd "M-x") 'smex)

;;--- Function keys
(global-set-key [f1]                  'help)
(global-set-key [f3]                  'info)
(global-set-key [f4]                  'calc-embedded)
(global-set-key [f5]                  'compile)
(global-set-key [f6]                  #'(lambda ()
                                          (interactive)
                                          (clipboard-kill-ring-save
                                           (region-beginning)
                                           (region-end))
                                          (message
                                           "Saved to X clipboard and kill ring.")))
(global-set-key [f7]                  #'(lambda () (interactive)
                                          (clipboard-yank)))
(global-set-key [f8]                  'ispell-word)
(global-set-key [f9]                  'compile)
(global-set-key [f10]                 'fill-paragraph)
(global-set-key [f11]                 'tkf-fullscreen)
(global-set-key [f12]                 'next-buffer)
(global-set-key [(shift f12)]         'other-window)

;;--- Window config save/restore keys.
(global-set-key [(shift control f5)]  #'(lambda ()
                                          (interactive)
                                          (window-configuration-to-register 5)
                                          (message "saved config to reg 5")))
(global-set-key [(shift control f6)]  #'(lambda ()
                                          (interactive)
                                          (window-configuration-to-register 6)
                                          (message "saved config to reg 6")))
(global-set-key [(shift control f7)]  #'(lambda ()
                                          (interactive)
                                          (window-configuration-to-register 7)
                                          (message "saved config to reg 7")))
(global-set-key [(shift control f8)]  #'(lambda ()
                                          (interactive)
                                          (window-configuration-to-register 8)
                                          (message "saved config to reg 8")))
(global-set-key [(control f5)]        #'(lambda ()
                                          (interactive)
                                          (jump-to-register 5)
                                          (message "restored config 5")))
(global-set-key [(control f6)]        #'(lambda ()
                                          (interactive)
                                          (jump-to-register 6)
                                          (message "restored config 6")))
(global-set-key [(control f7)]        #'(lambda ()
                                          (interactive)
                                          (jump-to-register 7)
                                          (message "restored config 7")))
(global-set-key [(control f8)]        #'(lambda ()
                                          (interactive)
                                          (jump-to-register 8)
                                          (message "restored config 8")))

;;--- Don't really like Emacs auto-indenting.
(global-set-key (kbd "RET")           'tkf-newline-and-indent)
(global-set-key (kbd "C-TAB")         'indent-for-tab-command)
(global-set-key (kbd "<backtab>")     'tkf-backtab)
(global-set-key (kbd "TAB")           'tab-to-tab-stop)

;;---  bookmark-like keys
(global-set-key (kbd "<C-f2>")        'bm-toggle)
(global-set-key (kbd "<f2>")          'bm-next)
(global-set-key (kbd "<S-f2>")        'bm-previous)
(global-set-key (kbd "<M-f2>")        'bm-show)
(global-set-key (kbd "<S-M-f2>")      'bm-show-all)
(global-set-key (kbd "<C-M-f2>")      'bm-remove-all-current-buffer)

;;--- Custom commands (C-c <letter> is always safe)
(global-set-key (kbd "C-c p")         'toggle-sticky-buffer-window)            
(global-set-key (kbd "C-c s")         'tkf-search-fwd-other-window)            
(global-set-key (kbd "C-c r")         'tkf-search-bwd-other-window)            
(global-set-key (kbd "C-c f")         'tkf-find-file-other-window)             
(global-set-key (kbd "C-c b")         'tkf-switch-to-buffer-other-window)      
(global-set-key (kbd "C-c t")         'tkf-time)                            
(global-set-key (kbd "C-c n")         'org-remember)                            
(global-set-key (kbd "C-c l")         'kill-whole-line)
(global-set-key (kbd "C-c c")         'tkf-insert-divider-comment)
(global-set-key (kbd "C-c d")         'cua-delete-rectangle)
(global-set-key (kbd "C-c RET")       'cua-cancel)
(global-set-key (kbd "C-c \\")        #'(lambda ()
                                          (interactive "*")
                                          (insert "λ")))
(global-set-key (kbd "C-c S")         #'(lambda ()
                                          (interactive "*")
                                          (switch-to-buffer "*scratch*")))
(global-set-key (kbd "C-c <left>")      'windmove-left)          
(global-set-key (kbd "C-c <right>")     'windmove-right)        
(global-set-key (kbd "C-c <up>")        'windmove-up)              
(global-set-key (kbd "C-c <down>")      'windmove-down)
 
;;--- The "a" key won't work properly in dired mode when a window is protected
;;    so unprotect it briefly, do the "a"-thing, then reprotect.
(define-key dired-mode-map (kbd "a")
  #'(lambda ()
      (interactive "")
      (let ((ded (window-dedicated-p (selected-window))))
        (if ded
            (set-window-dedicated-p (selected-window) nil))
        (dired-find-alternate-file)
        (if ded
            (set-window-dedicated-p (selected-window) t)))))

;;--- magnars 'mark-more-like-this'
(global-set-key (kbd "C-.") 'mark-next-like-this)      ; "." == unshifted ">"
(global-set-key (kbd "C-,") 'mark-previous-like-this)  ; "," == unshifted ">"

;;--- HOME key must work like Brief
(global-set-key [home] 'tkf-beginning-of-line)
;;--- Ditto for C-a
(global-set-key (kbd "C-a")           'tkf-beginning-of-line)                  

;;--- suspend-frame : a function that has outlived its usefulness
(global-set-key (kbd "C-z") 'undo)

;;--- I don't like the fact that 'zap-to-char' kills the character you're
;;    zapping to.  I prefer 'zap-up-to-char'
(global-set-key (kbd "M-z") 'zap-up-to-char)
(global-set-key (kbd "M-Z") 'zap-to-char)

;;--- Just like plain old tabs for c/c++ modes
(define-key c-mode-map (kbd "RET")       'tkf-newline-and-indent)
(define-key c-mode-map (kbd "C-TAB")     'indent-for-tab-command)
(define-key c-mode-map (kbd "<backtab>") 'tkf-backtab)
(define-key c-mode-map (kbd "TAB")       'tab-to-tab-stop)
(define-key c++-mode-map (kbd "RET")       'tkf-newline-and-indent)
(define-key c++-mode-map (kbd "C-TAB")     'indent-for-tab-command)
(define-key c++-mode-map (kbd "<backtab>") 'tkf-backtab)
(define-key c++-mode-map (kbd "TAB")       'tab-to-tab-stop)


;; END OF KEYDEFS
;;------------------------------------------------------------------------------

;;------------------------------------------------------------------------------
;; scheme-mode and run-scheme stuff

(load "cmuscheme.el")
(setq-default scheme-program-name "/home/todd/racket/bin/gracket-text")

(defun scheme-add-keywords (face-name keyword-rules)
   (let* ((keyword-list (mapcar #'(lambda (x)
                                    (symbol-name (car x)))
                                keyword-rules))
          (keyword-regexp (concat "(\\("
                                  (regexp-opt keyword-list)
                                  "\\)[ \n]")))
     (font-lock-add-keywords 'scheme-mode
                             `((,keyword-regexp 1 ',face-name))))
   (mapc #'(lambda (x)
             (put (car x)
                  'scheme-indent-function
                  (cdr x)))
         keyword-rules))

;; Indentation types:
;;
;; Type 0     Type 1       Type 2      Type 3      
;;                                                 
;; (myform    (myform      (myform      (myform    
;;  (one)         (one)        (one)       (one)   
;;  (two)       (two)          (two)       (two)   
;;  (three)     (three)      (three)       (three) 
;;  (four)      (four)       (four)      (four)    
;;  (five)      (five)       (five)      (five)    
;;  (six)       (six)        (six)       (six)     
;;  (seven))    (seven))     (seven))    (seven))  
;;
;;                    Keyword          Indentation Type
;;                    -------          ----------------
(setq keyword-list '((begin                   . 0)
                     (begin-for-syntax        . 0)
                     (filter                  . 0)
                     (define/override         . 1)                     
                     (case                    . 1)
                     (cond                    . 0)
                     (delay                   . 0)
                     (do                      . 2)
                     (lambda                  . 1)
                     (lambda:                 . 1)
                     (case-lambda             . 0)
                     (lambda/kw               . 1)
                     (define/kw               . 1)
                     (let                     . 1)
                     (let*                    . 1)
                     (letrec                  . 1)
                     (let-values              . 1)
                     (let*-values             . 1)
                     (fluid-let               . 1)
                     (let/cc                  . 1)
                     (let/ec                  . 1)
                     (let-id-macro            . 2)
                     (let-macro               . 2)
                     (letmacro                . 1)
                     (letsubst                . 1)
                     (sequence                . 0) 
                     (letsyntax               . 1)
                     (let-syntax              . 1)
                     (letrec-syntax           . 1)
                     (syntax-rules            . 1)
                     (syntax-id-rules         . 1)
                     (call-with-input-file    . 1)
                     (call-with-input-file*   . 1)
                     (with-input-from-file    . 1)
                     (with-input-from-port    . 1)
                     (call-with-output-file   . 1)
                     (call-with-output-file*  . 1)
                     (with-output-to-file     . 1)
                     (with-output-to-port     . 1)
                     (with-slots              . 2)
                     (with-accessors          . 2)
                     (call-with-values        . 2)
                     (dynamic-wind            . 1)
                     (if                      . 1)
                     (method                  . 1)
                     (beforemethod            . 1)
                     (aftermethod             . 1)
                     (aroundmethod            . 1)
                     (when                    . 1)
                     (unless                  . 1)
                     (thunk                   . 0)
                     (while                   . 1)
                     (until                   . 1)
                     (parameterize            . 1)
                     (parameterize*           . 1)
                     (syntax-parameterize     . 1)
                     (with-handlers           . 1)
                     (with-handlers*          . 1)
                     (begin0                  . 1)
                     (with-output-to-string   . 0)
                     (ignore-errors           . 0)
                     (no-errors               . 0)
                     (matcher                 . 1)
                     (match                   . 1)
                     (regexp-case             . 1)
                     (dotimes                 . 1)
                     (dolist                  . 1)
                     (with-syntax             . 1)
                     (syntax-case             . 2)
                     (syntax-case*            . 3)
                     (module                  . 2)
                     (syntax                  . 0)
                     (quasisyntax             . 0)
                     (syntax/loc              . 1)
                     (quasisyntax/loc         . 1)
                     (cases                   . 1)
                     (for                     . 1)
                     (for*                    . 1)
                     (for/list                . 1)
                     (for*/list               . 1)
                     (for/fold                . 2)
                     (for*/fold               . 2)
                     (for/and                 . 1)
                     (for*/and                . 1)
                     (for/or                  . 1)
                     (for*/or                 . 1)
                     (nest                    . 1)))

(scheme-add-keywords 'font-lock-keyword-face keyword-list)

;;------------------------------------------------------------------------------
;; c-mode stuff

(add-to-list 'c-mode-common-hook (lambda ()
                                   (setq c-syntactic-indentation nil)))

;;------------------------------------------------------------------------------
;; haskell-mode stuff

(setq haskell-program-name "/usr/bin/ghci -XParallelListComp  -XTransformListComp -XGADTs")

(remove-hook 'haskell-mode-hook 'turn-on-haskell-indent)
(remove-hook 'haskell-mode-hook 'turn-on-haskell-indentation)


;;------------------------------------------------------------------------------
;; World's best modeline

(setq-default mode-line-format
  (list
    "  "
    mode-line-buffer-identification
    " │ "
    "dir: "
    '(:eval (last-dir default-directory))
    " │ "
    ;; '%02' to set to 2 chars at least; prevents flickering
      "%04l"
      ","
      "%02c" 
    " │ "
    ;; relative position, size of file
    ;;'(:eval (format "%5d" (count-lines (point-min) (point-max))))
    ;;"/"
    ;;"%I" 
    ;;" │ "
    '(:eval (if (buffer-modified-p)
              (propertize "M"
                          'face 'bold
                          'help-echo "Buffer has been modified")
              (propertize "-"
                          'face 'bold
                          'help-echo "Buffer has not been modfied")))
    '(:eval (if buffer-read-only
              (propertize "R"
                          'face 'bold
                          'help-echo "Buffer is read-only")
              (propertize "-"
                          'face 'bold
                          'help-echo "Buffer is writable")))
    '(:eval (if (window-dedicated-p (selected-window))
               (propertize "D"
                          'face 'bold
                          'help-echo "Window is dedicated")
              (propertize "-"
                          'face 'bold
                          'help-echo "Window is not dedicated")))
    " │ "
    ;;'(:eval (concat "inp: "
    ;;            (if (equalp current-input-method nil)
    ;;            "none"
    ;;            current-input-method)))
    ;;" │ "
    mode-line-modes    
    ))

;;------------------------------------------------------------------------------
;; My lame color themeing variables.

(setq bg                 "#d5d5e3"
      kw-wgt             'bold
      kw-slant           'italic
      fnt                "Meslo LG S"
      fg                 "grey8" 
      kw                 fg
      fnt-size           90
      fl-string          "SteelBlue"
      string-slant       'normal
      fl-comment         "grey57"
      comment-slant      'normal
      fringe             "#c9c9d6"
      bgr                'light
      paren-mismatch     "dark red"
      rgn                "#babac7"
      lzy-hi             "sandy brown" ;"#ffcb98"
      hl-ln              "#dfdfed"
      modeln-bg          lzy-hi ;"navajo white"
      modeln-fg          "black"
      modeln-inactive-fg "gray25"
      modeln-inactive-bg fringe
      err                "dark red"
      bm-fg              "white"
      bm-bg              lzy-hi
      par-match-fg       "white"
      par-match-wgt      'bold
      lnum               fl-comment
      ;par-match-bg       "pale goldenrod"
      auctex-preview-bg  "DodgerBlue3"
      hi-blu             "RoyalBlue1"
      hi-grn             "medium sea green"
      hi-pnk             "LightPink3"
      hi-red             "firebrick3"
      hi-yllw            "cornsilk1"
      pmpt-fg            "DarkSeaGreen4"
      pmpt-slant         'italic
      pmpt-wgt           'normal
      ediff-bg           "AntiqueWhite3"
      wrn                "DarkSeaGreen4")
 
;;;------------------------------------------------------------------------------
;;; Don't change this or use custom.
 
(custom-set-faces
 `(default ((t (:inherit nil :stipple nil :background ,bg  :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height ,fnt-size :width normal :foundry "unknown" :family ,fnt))))
 `(error   ((t (:inherit nil :stipple nil :background ,bg  :foreground ,err :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height ,fnt-size :width normal :foundry "unknown" :family ,fnt)))) 
 `(comint-highlight-input ((t (:inherit default))))
 `(comint-highlight-prompt ((t (:inherit nil :stipple nil :background ,bg :foreground ,pmpt-fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant ,pmpt-slant :weight ,pmpt-wgt :width normal :foundry "unknown" :family ,fnt))))
 `(compilation-info ((t (:inherit nil :foreground ,fg :family ,fnt))))
 `(compilation-line-number ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline t :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(compilation-warning ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline t :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(cscope-file-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :foundry "unknown" :family ,fnt))))
 `(cscope-function-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant italic :width normal :foundry "unknown" :family ,fnt))))
 `(cscope-line-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(cscope-line-number-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(cscope-mouse-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(cua-global-mark ((t (:inherit region))))
 `(cua-rectangle ((default nil) (((class color)) (:inherit region))))
 `(cua-rectangle-noselect ((default nil) (((class color)) (:inherit nil))))
 ;`(cursor ((t (:background ,cursor :foreground ,fg))))
 `(custom-button-pressed-unraised ((default (:inherit custom-button-unraised)) (((class color) (background ,bgr)) nil)))
 `(custom-changed ((((min-colors 88) (class color)) (:inherit custom-button-unraised))))
 `(custom-comment ((((class grayscale color) (background ,bgr)) (:inherit default))))
 `(custom-comment-tag ((t (:inherit default))))
 `(custom-face-tag ((t (:inherit default))))
 `(custom-group-tag ((((min-colors 88) (class color) (background ,bgr)) (:inherit default :weight bold))))
 `(custom-group-tag-1 ((((min-colors 88) (class color) (background ,bgr)) (:inherit default :weight bold))))
 `(custom-invalid ((((class color)) (:inherit default :strike-through t))))
 `(custom-modified ((((min-colors 88) (class color)) (:inherit default))))
 `(custom-rogue ((((class color)) (:inherit default))))
 `(custom-saved ((t (:inherit default))))
 `(custom-set ((((min-colors 88) (class color)) (:inherit default))))
 `(custom-state ((((class color) (background ,bgr)) (:inherit default))))
 `(custom-themed ((((min-colors 88) (class color)) (:inherit default))))
 `(custom-variable-button ((t (:inherit link :weight normal))))
 `(custom-variable-tag ((((min-colors 88) (class color) (background ,bgr)) (:inherit custom-variable-button :weight normal))))
 `(custom-visibility ((t (:inherit link))))
 `(warning     ((t (:inherit nil :stipple nil :background ,bg :foreground ,wrn :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight ,kw-wgt :width normal :foundry "unknown" :family ,fnt))))
 `(dired-symlink ((t (:inherit link :slant italic))))
 `(dired-directory ((t (:inherit link))))
 `(dired-marked    ((t (:inherit warning))))
 `(diredp-compressed-file-suffix  ((t (:inherit default))))                     
 `(diredp-date-time        ((t (:inherit default))))                     
 `(diredp-deletion         ((t (:inherit default))))                                
 `(diredp-deletion-file-name  ((t (:inherit default))))                             
 `(diredp-dir-heading    ((t (:inherit default))))                                  
 `(diredp-dir-priv     ((t (:inherit default))))                                    
 `(diredp-display-msg  ((t (:inherit default))))                                    
 `(diredp-exec-priv    ((t (:inherit default))))                                    
 `(diredp-executable-tag  ((t (:inherit default))))                                 
 `(diredp-file-name       ((t (:inherit default))))            
 `(diredp-file-suffix     ((t (:inherit default))))
 `(diredp-flag-mark       ((t (:inherit dired-marked))))            
 `(diredp-flag-mark-line  ((t (:inherit dired-marked))))            
 `(diredp-ignored-file-name  ((t (:inherit default))))                     
 `(diredp-link-priv          ((t (:inherit default))))                     
 `(diredp-no-priv            ((t (:inherit default))))                     
 `(diredp-number             ((t (:inherit default))))                     
 `(diredp-other-priv         ((t (:inherit default))))                     
 `(diredp-rare-priv          ((t (:inherit default))))                     
 `(diredp-read-priv          ((t (:inherit default))))                              
 `(diredp-symlink            ((t (:inherit link :slant italic))))         
 `(diredp-write-priv         ((t (:inherit default))))
 `(dired-perm-write          ((t (:inherit default))))
 `(escape-glyph ((t (:inherit default :inverse-video t))))
 `(eshell-ls-archive ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(eshell-ls-backup ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(eshell-ls-clutter ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(eshell-ls-directory ((t (:inherit link))))
 `(eshell-ls-executable ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(eshell-ls-missing ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(eshell-ls-product ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(eshell-ls-readonly ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(eshell-ls-special ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(eshell-ls-symlink ((t (:inherit link :slant italic))))
 `(eshell-ls-unreadable ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant italic :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(eshell-prompt ((t (:inherit comint-highlight-prompt))))
 `(file-name-shadow ((t (:inherit default))))
 `(fixed-pitch ((t (:inherit default))))
 `(font-lock-builtin-face ((((class color) (min-colors 88) (background ,bgr)) (:inherit default))))
 `(font-lock-comment-delimiter-face ((((class color) (min-colors 88) (background ,bgr)) (:inherit default :slant italic :foreground ,fl-comment))))
 `(font-lock-comment-face ((((class color) (min-colors 88) (background ,bgr)) (:inherit default :slant ,comment-slant :foreground ,fl-comment))))
 `(font-lock-constant-face ((((class color) (min-colors 88) (background ,bgr)) (:inherit default))))
 `(font-lock-function-name-face ((((class color) (min-colors 88) (background ,bgr)) (:inherit default))))
 `(font-lock-keyword-face ((((class color) (min-colors 88) (background ,bgr)) (:inherit default :foreground ,kw :slant ,kw-slant :weight ,kw-wgt))))
 `(font-lock-negation-char-face ((t (:inherit default))))
 `(font-lock-regexp-grouping-backslash ((t (:inherit default))))
 `(font-lock-regexp-grouping-construct ((t (:inherit default))))
 `(font-lock-string-face ((((class color) (min-colors 88) (background ,bgr)) (:slant ,string-slant :foreground ,fl-string))))
 `(font-lock-type-face ((((class color) (min-colors 88) (background ,bgr)) (:inherit default))))
 `(font-lock-variable-name-face ((((class color) (min-colors 88) (background ,bgr)) (:inherit default))))
 `(font-lock-warning-face ((((class color) (min-colors 88) (background ,bgr)) (:inherit error))))
 `(fringe ((((class color) (background ,bgr)) (:background ,fringe :box t))))
 `(gnus-button ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-cite-1 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-cite-10 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-cite-11 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-cite-2 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-cite-3 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-cite-4 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-cite-5 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-cite-6 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-cite-7 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-cite-8 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-cite-9 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-cite-attribution ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-emphasis-bold ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-emphasis-bold-italic ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-emphasis-highlight-words ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-emphasis-italic ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-emphasis-strikethru ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-emphasis-underline ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-emphasis-underline-bold ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-emphasis-underline-bold-italic ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-emphasis-underline-italic ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-mail-1 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-mail-1-empty ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-mail-2 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-mail-2-empty ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-mail-3 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-mail-3-empty ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-mail-low ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-mail-low-empty ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-news-1 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-news-1-empty ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-news-2 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-news-2-empty ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-news-3 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-news-3-empty ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-news-4 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-news-4-empty ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-news-5 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-news-5-empty ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-news-6 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-news-6-empty ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-news-low ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-group-news-low-empty ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-header-content ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-header-from ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-header-name ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-header-newsgroups ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-header-subject ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-server-agent ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-server-closed ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-server-denied ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-server-offline ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-server-opened ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-signature ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-splash ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-summary-cancelled ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-summary-high-ancient ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-summary-high-read ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-summary-high-ticked ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-summary-high-undownloaded ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-summary-high-unread ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-summary-low-ancient ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-summary-low-read ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-summary-low-ticked ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-summary-low-undownloaded ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-summary-low-unread ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-summary-normal-ancient ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-summary-normal-read ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-summary-normal-ticked ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-summary-normal-undownloaded ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-summary-normal-unread ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(gnus-summary-selected ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(header-line ((default (:inherit default)) (((class color grayscale) (background ,bgr)) nil)))
 `(help-argument-name ((((supports :slant italic)) (:inherit default))))
 `(highlight ((((class color) (min-colors 88) (background ,bgr)) (:inherit default :inverse-video t))))
 `(highlight-changes ((((min-colors 88) (class color)) (:inherit default :weight bold))))
 `(highlight-changes-delete ((((min-colors 88) (class color)) (:inherit default :strike-through t))))
 `(hl-line ((t (:inherit region :background ,hl-ln))))
 `(ido-indicator ((((min-colors 88) (class color)) (:inherit default))))
 `(ido-only-match ((((class color)) (:inherit default))))
 `(ido-subdir ((((min-colors 88) (class color)) (:inherit default :underline t))))
 `(isearch ((((class color) (min-colors 88) (background ,bgr)) (:background ,lzy-hi))))
 `(isearch-fail ((((class color) (min-colors 88) (background ,bgr)) (:inherit default))))
 `(lazy-highlight ((((class color) (min-colors 88) (background ,bgr)) (:background ,lzy-hi))))
 `(link ((t (:inherit default :underline t))))
 `(link-visited ((default (:inherit link)) (((class color) (background ,bgr)) nil)))
 `(linum ((t (:inherit default :foreground ,lnum))))
 `(match ((((class color) (min-colors 88) (background ,bgr)) (:inherit default :weight bold))))
 `(message-cited-text ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(message-header-cc ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(message-header-name ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(message-header-newsgroups ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(message-header-other ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(message-header-subject ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(message-header-to ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(message-header-xheader ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(message-mml ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(message-separator ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(minibuffer-prompt ((t (:inherit default))))
 `(mm-uu-extract ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(mode-line ((t (:background ,modeln-bg :foreground ,modeln-fg :box t))))
 `(mode-line-highlight ((((class color) (min-colors 88)) (:box t :weight bold))))
 `(mode-line-inactive ((((class color) (min-colors 88)) (:background ,modeln-inactive-bg :foreground ,modeln-inactive-fg :box t :weight normal))))
 `(next-error ((t (:inherit error))))
 `(org-agenda-column-dateline ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-agenda-date ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :foundry "unknown" :family ,fnt))) t)
 `(org-agenda-date-weekend ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :foundry "unknown" :family ,fnt))) t)
 `(org-agenda-dimmed-todo-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-agenda-restriction-lock ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-agenda-structure ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-archived ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-clock-overlay ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-code ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-column ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-column-title ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-date ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :foundry "unknown" :family ,fnt))))
 `(org-done ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-drawer ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-ellipsis ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-footnote ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-formula ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-headline-done ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-hide ((t (:inherit nil :stipple nil :background ,bg :foreground ,bg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-latex-and-export-specials ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-level-1 ((t (:inherit nil :stipple nil :background ,bg :foreground ,kw :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :foundry "unknown" :family ,fnt))))
 `(org-level-2 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-level-3 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-level-4 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-level-5 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-level-6 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-level-7 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-level-8 ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-link ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-property-value ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))) t)
 `(org-scheduled ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-scheduled-previously ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-scheduled-today ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-sexp-date ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-special-keyword ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-table ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-tag ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-target ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-time-grid ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-todo ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :weight bold :width normal :foundry "unknown" :family ,fnt))))
 `(org-upcoming-deadline ((t (:inherit nil :stipple nil   :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-verbatim ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(org-warning ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(outline-1 ((t (:inherit default))))
 `(outline-2 ((t (:inherit default))))
 `(outline-3 ((t (:inherit default))))
 `(outline-4 ((t (:inherit default))))
 `(outline-5 ((t (:inherit default))))
 `(outline-6 ((t (:inherit default))))
 `(outline-7 ((t (:inherit default))))
 `(outline-8 ((t (:inherit default))))
 `(region ((((class color) (min-colors 88) (background ,bgr)) (:background ,rgn))))
 `(secondary-selection ((((class color) (min-colors 88) (background ,bgr)) (:inherit region))))
 `(show-paren-match ((((class color) (background ,bgr)) (:inherit default :inverse-video nil :weight ,par-match-wgt :foreground ,par-match-fg))))
 `(show-paren-mismatch ((((class color)) (:foreground ,paren-mismatch))))
 `(speedbar-button-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(speedbar-directory-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(speedbar-file-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(speedbar-highlight-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(speedbar-selected-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(speedbar-separator-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(speedbar-tag-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(tex-math ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :foundry "unknown" :family ,fnt))))
 `(tex-verbatim ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant italic :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(trailing-whitespace ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "unknown" :family ,fnt))))
 `(wg-brace-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 130 :width normal :foundry "unknown" :family ,fnt))))
 `(wg-command-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 130 :width normal :foundry "unknown" :family ,fnt))))
 `(wg-current-workgroup-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 130 :width normal :foundry "unknown" :family ,fnt))))
 `(wg-divider-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 130 :width normal :foundry "unknown" :family ,fnt))))
 `(wg-filename-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 130 :width normal :foundry "unknown" :family ,fnt))))
 `(wg-frame-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 130 :width normal :foundry "unknown" :family ,fnt))))
 `(wg-message-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 130 :width normal :foundry "unknown" :family ,fnt))))
 `(wg-mode-line-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 130 :width normal :foundry "unknown" :family ,fnt))))
 `(wg-other-workgroup-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 130 :width normal :foundry "unknown" :family ,fnt))))
 `(wg-previous-workgroup-face ((t (:inherit nil :stipple nil :background ,bg :foreground ,fg :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 130 :width normal :foundry "unknown" :family ,fnt))))
 `(widget-button-pressed ((((min-colors 88) (class color)) (:inherit widget-button))))
 `(widget-documentation ((((class color) (background ,bgr)) (:inherit default))))
 `(bm-face                    ((((class color) (background ,bgr)))))
 `(bm-fringe-face             ((((class color) (background ,bgr)) (:foreground ,bm-fg :background ,bm-bg))))
 `(bm-fringe-persistent-face  ((((class color) (background ,bgr)) (:foreground ,bm-fg :background ,bm-bg))))
 `(bm-persistent-face         ((((class color) (background ,bgr)) (:inherit default))))
 `(mm/master-face             ((t (:inherit region))))
 `(mm/mirror-face             ((t (:inherit region))))
 `(font-latex-bold-face                 ((t (:inherit bold))))
 `(font-latex-doctex-documentation-face ((t (:inherit font-lock-string-face))))
 `(font-latex-doctex-preprocessor-face  ((t (:inherit font-lock-keyword-face))))
 `(font-latex-italic-face               ((t (:inherit italic))))
 `(font-latex-math-face                 ((t (:inherit italic))))
 `(font-latex-sectioning-0-face         ((t (:inherit bold))))
 `(font-latex-sectioning-1-face         ((t (:inherit bold))))
 `(font-latex-sectioning-2-face         ((t (:inherit bold))))
 `(font-latex-sectioning-3-face         ((t (:inherit bold))))
 `(font-latex-sectioning-4-face         ((t (:inherit bold))))
 `(font-latex-sectioning-5-face         ((t (:inherit bold))))
 `(font-latex-sedate-face               ((t (:inherit font-lock-comment-face))))
 `(font-latex-slide-title-face          ((t (:inherit normal))))
 `(font-latex-string-face               ((t (:inherit font-lock-string-face))))
 `(font-latex-subscript-face            ((t (:inherit normal))))
 `(font-latex-superscript-face          ((t (:inherit normal))))
 `(font-latex-verbatim-face             ((t (:inherit font-lock-string-face))))
 `(font-latex-warning-face              ((t (:inherit font-lock-warning-face))))
 `(preview-face                         ((t (:inherit nil :stipple nil :background ,auctex-preview-bg   :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal))))
 `(compilation-error                    ((t (:box 1))))
 `(compilation-column-number ((t (:inherit compilation-warning))))
 `(compilation-mode-line-exit ((t (:inherit default :underline t :box t))))
 `(compilation-mode-line-fail ((t (:inherit error :underline t :box t))))
 `(info-menu-star   ((t (:inherit error))))
 `(hi-blue          ((t (:inherit error))))
 `(hi-blue-b        ((t (:inherit error))))
 `(hi-green         ((t (:inherit error))))    
 `(hi-green-b       ((t (:inherit error))))
 `(hi-pink          ((t (:inherit error))))
 `(hi-red-b         ((t (:inherit error))))
 `(hi-yellow        ((t (:inherit error))))
 `(ediff-current-diff-A                ((t (:inherit default :background ,ediff-bg))))
 `(ediff-current-diff-Ancestor         ((t (:inherit default :background ,ediff-bg))))
 `(ediff-current-diff-B                ((t (:inherit default :background ,ediff-bg))))
 `(ediff-current-diff-C                ((t (:inherit default :background ,ediff-bg))))
 `(ediff-even-diff-A                   ((t (:inherit default :background ,ediff-bg))))
 `(ediff-even-diff-Ancestor            ((t (:inherit default :background ,ediff-bg))))
 `(ediff-even-diff-B                   ((t (:inherit default :background ,ediff-bg))))
 `(ediff-even-diff-C                   ((t (:inherit default :background ,ediff-bg))))
 `(ediff-fine-diff-A                   ((t (:inherit default :background ,ediff-bg))))
 `(ediff-fine-diff-Ancestor            ((t (:inherit default :background ,ediff-bg))))
 `(ediff-fine-diff-B                   ((t (:inherit default :background ,ediff-bg))))
 `(ediff-fine-diff-C                   ((t (:inherit default :background ,ediff-bg))))
 `(ediff-odd-diff-A                    ((t (:inherit default :background ,ediff-bg))))
 `(ediff-odd-diff-Ancestor             ((t (:inherit default :background ,ediff-bg))))
 `(ediff-odd-diff-B                    ((t (:inherit default :background ,ediff-bg))))
 `(ediff-odd-diff-C                    ((t (:inherit default :background ,ediff-bg))))
 ;;`(diff-index                           
 `(diff-indicator-added                ((t (:inherit default :background ,ediff-bg))))
 `(diff-indicator-changed              ((t (:inherit default :background ,ediff-bg))))
 `(diff-indicator-removed              ((t (:inherit default :background ,ediff-bg))))
 `(diff-nonexistent                    ((t (:inherit default :background ,ediff-bg))))
 `(diff-refine-added                   ((t (:inherit default :background ,ediff-bg))))
 `(diff-refine-change                  ((t (:inherit default :background ,ediff-bg))))
 `(diff-refine-removed                 ((t (:inherit default :background ,ediff-bg))))
 `(diff-removed                        ((t (:inherit default :background ,ediff-bg))))
 )

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(auto-hscroll-mode t)
 '(blink-cursor-delay 2)
 '(blink-cursor-interval 0.25)
 '(blink-cursor-mode nil)
 '(blink-matching-paren t)
 '(column-number-mode t)
 '(compilation-scroll-output t)
 '(cscope-display-times nil)
 '(cscope-edit-single-match nil)
 '(cscope-name-line-width -25)
 '(cscope-truncate-lines t)
 '(cscope-use-face t)
 '(cua-enable-cua-keys nil)
 '(cua-enable-cursor-indications t)
 '(cua-global-mark-cursor-color "black")
 '(cua-mode t nil (cua-base))
 '(cua-normal-cursor-color "black")
 '(cua-read-only-cursor-color "red4")
 '(default-justification (quote full))
 '(desktop-save nil)
 '(desktop-save-mode nil)
 '(diff-switches "-C 5")
 '(dired-find-subdir t)
 '(dired-use-ls-dired t)
 '(eshell-highlight-prompt t)
 '(eshell-ls-use-colors t)
 '(eshell-prompt-function (lambda nil (concat "――――――――――――――――――――――――――――――――――――――――
" (if (= (user-uid) 0) "(root) > " "") "eshell > ")))
 '(fancy-splash-image nil)
 '(frame-background-mode nil)
 '(global-font-lock-mode t)
 '(global-highlight-changes-mode nil)
 '(global-hl-line-mode nil)
 '(global-linum-mode nil)
 '(gnus-summary-line-format "%U%R%z%I%(%[%4L: %-20,20n%]%) %s
")
 '(grep-command "grep")
 '(haskell-indentation-left-offset 4)
 '(haskell-indentation-starter-offset 0)
 '(haskell-indentation-where-post-offset 0)
 '(haskell-indentation-where-pre-offset 0)
 '(highlight-changes-colors nil)
 '(hscroll-margin 0)
 '(hscroll-step 5)
 '(ido-enable-flex-matching t)
 '(ido-everywhere t)
 '(ido-mode (quote both) nil (ido))
 '(indent-tabs-mode nil)
 '(inhibit-startup-screen t)
 '(initial-buffer-choice nil)
 '(isearch-lazy-highlight t)
 '(jabber-chat-buffer-format "*-%n-*")
 '(jabber-chat-buffer-show-avatar nil)
 '(kill-whole-line t)
 '(lazy-highlight-cleanup t)
 '(mail-source-primary-source (quote pop\.gmail\.com))
 '(menu-bar-mode nil)
 '(minimap-width-fraction 0.2)
 '(mouse-wheel-mode t)
 '(open-paren-in-column-0-is-defun-start t)
 '(org-hide-leading-stars t)
 '(org-todo-keywords (quote ((sequence "TODO" "IN PROGRESS" "POSTPONED" "WAITING" "|" "DONE" "CANCELLED"))))
 '(remember-leader-text "--------------- ")
 '(remember-mode-hook (quote (org-remember-apply-template)))
 '(ruler-mode-show-tab-stops t)
 '(save-place t nil (saveplace))
 '(scroll-bar-mode nil)
 '(scroll-conservatively 1)
 '(scroll-preserve-screen-position t)
 '(scroll-step 1)
 '(shift-select-mode nil)
 '(show-paren-mode t)
 '(show-paren-style (quote parenthesis))
 '(speedbar-indentation-width 3)
 '(speedbar-mode-specific-contents-flag nil)
 '(speedbar-obj-do-check nil)
 '(speedbar-smart-directory-expand-flag nil)
 '(speedbar-track-mouse-flag nil)
 '(speedbar-use-images t)
 '(speedbar-use-tool-tips-flag nil)
 '(speedbar-vc-in-control-hook (quote ((lambda (a b) nil))))
 '(speedbar-verbosity-level 0)
 '(sr-speedbar-auto-refresh nil)
 '(sr-speedbar-max-width 15)
 '(sr-speedbar-right-side t)
 '(sr-speedbar-width-console 15)
 '(sr-speedbar-width-x 15)
 '(standard-indent 3)
 '(tab-stop-list (quote (3)))
 '(tool-bar-mode nil)
 '(tooltip-mode nil)
 '(truncate-lines t)
 '(tuareg-comment-end-extra-indent 0)
 '(tuareg-function-indent 2)
 '(tuareg-in-indent 2)
 '(tuareg-type-indent 2)
 '(tuareg-with-indent 2)
 '(uniquify-buffer-name-style (quote forward) nil (uniquify))
 '(vc-svn-diff-switches (quote ("")))
 '(visible-bell nil)
 '(wg-restore-position t)
 '(wg-use-faces nil)
 '(workgroups-mode t))

(setq tab-stop-list
      '(4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96
        100 104 108 112 116 120 124 128 132 136 140 144 148 152 156 160 164 168
        172 176 180))
     

